home *** CD-ROM | disk | FTP | other *** search
- .KEY dest
- .BRA {
- .KET }
-
- ;
- ; Do the PCalc installation:
- ;
- ; Inputs:
- ; dest Where stuff should go.
-
-
- IF NOT EXISTS "PCalcInstDest:ProCalc"
- ECHO " Creating Directory {dest}ProCalc ..."
- MAKEDIR "PCalcInstDest:ProCalc"
- COPY RAM:PCalcInstall/icons/empty.info "PCalcInstDest:ProCalc.info"
- ; INSTUTIL reseticon "PCalcInstDest:ProCalc"
- ENDIF
-
- Echo >ram:BlottoCD "CD PCalcInstDest:ProCalc"
-
- ; Install the program itself.
-
- INSTUTIL ask -dy "Install the Professional Calc program [Y/N]? Y"
- IF NOT WARN
-
- ECHO "*N Copying Professional Calc program ...*N"
- COPY ProCalc:ProCalc "PCalcInstDest:ProCalc/ProCalc"
- COPY ProCalc:ProCalc.info "PCalcInstDest:ProCalc/ProCalc.info"
- COPY ProCalc:Prolog.ps "PCalcInstDest:ProCalc/Prolog.ps"
- INSTUTIL reseticon "PCalcInstDest:ProCalc/ProCalc"
-
- ENDIF
-
- ECHO "*N"
- INSTUTIL ask -dy "Install ProCalc ARexx files [Y/N]? Y"
- IF NOT warn
-
- IF NOT EXISTS "PCalcInstDest:ProCalc/Rexx"
- MAKEDIR "PCalcInstDest:ProCalc/Rexx"
- ENDIF
-
- COPY ProCalc:Rexx "PCalcInstDest:ProCalc/Rexx" ALL QUIET
-
- ENDIF
-
-
- ASSIGN PCalcInst:
-
- ECHO "*N"
- INSTUTIL ask -dy "Copy Example Files to {dest}ProCalc [Y/N]? Y"
- IF NOT warn
-
- EXECUTE RAM:PCalcInstall/DiskMount "Examples Disk" Examples: PCalcInst:
-
- IF NOT EXISTS "PCalcInstDest:ProCalc/Worksheets"
- MAKEDIR "PCalcInstDest:ProCalc/Worksheets"
- ENDIF
-
- ECHO "*N Copying Professional Calc examples ...*N"
- COPY PCalcInst: "PCalcInstDest:ProCalc/Worksheets" ALL QUIET
- COPY RAM:PCalcInstall/icons/empty.info "PCalcInstDest:ProCalc/Worksheets.info"
- INSTUTIL reseticon "PCalcInstDest:ProCalc/Worksheets"
-
- ENDIF
-
- ASSIGN PCalcInst:
- ECHO "*N"
- ECHO "*N"
- EXECUTE RAM:PCalcInstall/DiskMount "Utilities Disk" Utilities: PCalcInst:
-
- ECHO "*N"
- INSTUTIL ask -dy "Copy ProCalc fonts to FONTS: directory [Y/N]? Y"
- IF NOT warn
-
- FAILAT 21
- ECHO "*N Copying fonts to FONTS:"
- COPY PCalcInst:fonts FONTS: ALL QUIET
- IF error
- ECHO "*N Not enough room on the FONTS: directory*N"
- ENDIF
- FAILAT 10
-
- ELSE
-
- INSTUTIL ask -dy "Copy PCalc fonts to {dest}ProCalc/Fonts [Y/N]? Y"
- IF NOT warn
-
- ECHO "*N Copying fonts to {dest}ProCalc/Fonts..."
- IF NOT EXISTS "PCalcInstDest:ProCalc/Fonts"
- MAKEDIR "PCalcInstDest:ProCalc/Fonts"
- ENDIF
- COPY PCalcInst:fonts "PCalcInstDest:ProCalc/Fonts" ALL QUIET
-
- ;
- ; Make a couple of IconX files to switch between PCalc and normal fonts.
- ;
- CD RAM:PCalcInstall
- ECHO >SelPC.1 "Echo *"Selecting Professional Calc fonts: *" NOLINE"
- ECHO >SelPC.2 "Assign FONTS: *"{dest}ProCalc/Fonts*""
- ECHO >Sel.Done "Echo *"Done.*""
- JOIN SelPC.1 SelPC.2 Sel.Done AS "PCalcInstDest:ProCalc/ProCalcFonts"
- COPY RAM:PCalcInstall/Icons/ProCalcFonts.info "PCalcInstDest:ProCalc/ProCalcFonts.info"
-
- ECHO >SelAm.1 "Echo *"Selecting Amiga fonts: *" NOLINE"
- ECHO >SelAm.2a "Assign FONTS: " NOLINE
-
- CD FONTS:
- CD >RAM:PCalcInstall/SelAm.2b
- CD RAM:PCalcInstall
-
- JOIN SelAm.1 SelAm.2a SelAm.2b Sel.Done AS "PCalcInstDest:ProCalc/AmigaFonts"
- COPY RAM:PCalcInstall/Icons/AmigaFonts.info "PCalcInstDest:ProCalc/AmigaFonts.info"
- INSTUTIL reseticon "PCalcInstDest:ProCalc/ProCalcFonts"
- INSTUTIL reseticon "PCalcInstDest:ProCalc/AmigaFonts"
-
- ENDIF
-
- ENDIF
-
- ;
- ; The Assign commands for startup-sequence
- ;
- ;CD RAM:PCalcInstall
- ;ECHO >AsnPCalc "ASSIGN ProCalc: *"{dest}ProCalc*""
-
- ;VERSION >nil: graphics.library 36
-
- ;IF NOT WARN
- ; IF NOT EXISTS SYS:WBStartup
- ; MAKEDIR SYS:WBStartup
- ; ENDIF
- ; COPY AsnPCalc SYS:WBStartup/ProCalcStartup
- ; COPY RAM:PCalcInstall/icons/ProCalcStartup.info SYS:WBStartup
- ; INSTUTIL reseticon SYS:WBStartup/ProCalcStartup
- ;ELSE
- ; COPY AsnPCalc S:ProCalcStartup
- ;ENDIF
-
-
-